Unit
LMDCal

Declaration

TLMDOnMonthChange = procedure (Sender : TObject; Month : Integer) of object;